Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/ADO Public225377102001.psc/modPhonebook.bas

BASIC Source File | 2001-07-11 | 1.5 KB | 47 lines

Attribute VB_Name = "modPhonebook"
'Module by  Raymond Tan Chiu
'For your comments and suggestions you can conntact me at:
'           [e-mail]
'           [e-mail]
'           [e-mail]
'           (63)[phone]
'           (63)[phone]
'           (63)[phone]
'Development Date   : 06-19-2001
'Description        : Shows a ADO data control binds with datagrid.  And a global connection of ADO
'Components         : Datagrid, Adodc(ADO Data Control), Datagrid

Public gadoConn As ADODB.Connection

Sub Main()
'starting point of all ITC Applications
    On Error Resume Next
    If ConnectToDatabase = False Then
        MsgBox "Database not found!, Please place the database with the same path as the .exe file", vbExclamation, "Database not found!"
    End If
    frmPhonebook.Show
End Sub

Public Function ConnectToDatabase() As Boolean
Dim strConnect As String
Dim Path As String

    On Error GoTo ConnectError
    Path = App.Path & "\Phonebook.mdb"
    strConnect = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=false;"
    strConnect = strConnect & "Data Source=" & Path & ";Jet OLEDB:Database password = Pure;"

    Set gadoConn = New ADODB.Connection
    gadoConn.CursorLocation = adUseServer

    gadoConn.Open strConnect

    ConnectToDatabase = True

    Exit Function

ConnectError:
    MsgBox Error$, vbExclamation, "Connection Error"
    ConnectToDatabase = False
End Function